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-- Checkpoint. Mesa 
"- Edited by: 

Sandman on Jul 25, 1978 9:23 AM 

DIRECTORY 

AllocDefs: FROM "allocdefs" USING [ 

AddSwapStrategy, RemoveSwapStrategy , SwappingProcedure , SwapStrategy], 

AltoDefs: FROM "altodefs" USING [ 

BytesPerPage, PageCount, PageNumber, PageSize], 

AUoFileDefs: FROM "altof iledef s" USING [CFA. FA, fillinDA. FP. TIME, vDA], 

BcdDefs: FROM "bcddefs" USING [VersionStamp] , 

BFSDefs: FROM "bfsdefs" USING [ActOnPages. GetNextDA], 

ControlDefs: FROM "controldef s" USING [ 

Alloc, Al locationVector, Al locationVectorSize, ATPreg, AV, ControlLink, 
EntryVectorltem, FrameHandle, FrameVec, Free, GetReturnLink, GFT, 
GFTIndex, Global FrameHandle , Greg, Lreg, MaxAllocSlot, OTPreg, ProcDesc, 
SD. StateVector, SVPointer, WDCreg, XTSreg], 

CoreSwapDefs: FROM "coreswapdef s" USING [Puntlnfo, GetLevel , SetLevel], 

DirectoryDefs: FROM "directorydefs" USING [EnumerateDirectory] . 

DiskDefs: FROM "diskdefs" USING [DA. DiskRequest, RealDA], 

DiskKDDefs: FROM "diskkddefs" USING [CloseDiskKD] , 

FrameDefs: FROM "framedefs" USING [MakeCodeResident, SwapInCode, SwapOutCode], 

ImageDefs: FROM "imagedefs" USING [ 

FileRequest, FirstlmageDataPage, HeaderPages, ImageHeader, ImagePrefix, 
ImageVersion , Mapltem, PuntMesa, UserCleanupProc, VersionlD], 

InlineDefs: FROM "inlinedefs" USING [BITAND, COPY], 

LoadStateDefs: FROM "loadstatedef s" USING [ 

Configlndex, GetlnitialLoadState , GetLoadState, InputLoadState, 
ReleaseLoadState], 

MiscDefs: FROM "miscdefs" USING [DAYTIME, GetNetworkNumber , SetBlock, Zero], 

OsStaticDefs: FROM "osstaticdef s" USING [OsStatics], 

ProcessDefs: FROM "processdef s" USING [ 

ActiveWord, CurrentPSB, CurrentState, CV, Disablelnterrupts, DIW, 
Enablelnterrupts , ProcessHandle, Queue, ReadyList, SDC, WakeupsWaiting], 

SDDefs: FROM "sddefs" USING [sAllocTrap, sSwapTrap, sXferTrap], 

SegmentDefs: FROM "segmentdef s" USING [ 

AddressFromPage, Append, CloseFile, DataSegmentAddress , DataSegmentHandle, 
DefaultBase, Defaul tVersion , DeleteDataSegment, EnumerateDataSegments, 
EnumerateFiles , EnumerateFileSegments , FileError, FileHandle, 
FileSegmentAddress . FileSegmentHandle, GetFileSegmentDA, JumpToPage. 
MapFileSegment , NewDataSegment, NewFile, Read, SetEndOfFile, Swapln, 
SwapOut, Unlock, Write], 

StreamDefs: FROM "streamdefs" USING [ 

CreateWordStream, ReadBlock, StreamHandle], 

StringDefs: FROM "stringdefs" USING [EquivalentString] , 

SystemDefs: FROM "systemdefs" USING [Al locatePages , FreePages, PruneHeap], 

TimeDefs: FROM "timedefs" USING [PackedTime] ; 

DEFINITIONS FROM 

LoadStateDefs, DiskDefs, ImageDefs, ControlDefs, SegmentDefs; 

Checkpoint: PROGRAM 

IMPORTS AllocDefs. BFSDefs, CoreSwapDefs. 

DirectoryDefs, DiskDefs, DiskKDDefs, FrameDefs, ImageDefs. 
'^LoadStateDefs, MiscDefs, SegmentDefs, StreamDefs, StringDefs, SystemDefs 
EXPORTS ImageDefs 

SHARES ProcessDefs. DiskDefs, SegmentDefs, ControlDefs, ImageDefs « 
BEGIN 

CFA: TYPE = Al toFi leDef s.CFA; 

DataSegmentHandle: TYPE = SegmentDefs. DataSegmentHandle; 

FP: TYPE = AUoFileDefs. FP; 

FileHandle: TYPE = SegmentDefs .FileHandle ; 

FileSegmentHandle: TYPE « SegmentDefs . FileSegmentHandle; 

PageSize: CARDINAL « Al toDefs . PageSize; 

PageCount: TYPE = Al toDefs .PageCount ; 

PageNumber: TYPE = AltoDefs .PageNumber; 

shortFileRequest : TYPE « short ImageDefs . FileRequest ; 

vDA: TYPE = Al toFi leDef s . vDA; 

GlobalFrameHandle: TYPE = ControlDefs. GlobalFrameHandle; 

Configlndex: TYPE = LoadStateDefs. Configlndex; 

StreamHandle: TYPE « StreamDefs. StreamHandle; 

ProcDesc: TYPE = ControlDefs . ProcDesc; 

DisplayHeader: POINTER TO WORD = LOOPHOLE[420B] ; 
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SwapTrapDuringMakeCheck: PUBLIC SIGNAL « CODE; 
SwapErrorDuringMakeCheck: PUBLIC SIGNAL « CODE; 
SwapOutDuringMakeCheck: PUBLIC SIGNAL » CODE; 
NoRoomlnCheckMap: PUBLIC SIGNAL ■ CODE; 

SwapTrapError: PROCEDURE « 
BEGIN 

dest: ControlDefs.ControlLink; 
s: ControlDefs.StateVector; 
Proces sDefs. Disable In terrupts[]; 
s ^ STATE; 

dest ^ LOOPHOLE[REGISTER[ControlDefs.OrPreg]]; 
ProcessDef s .Enablelnterrupts[]; 
SIGNAL SwapTrapDuringMakeCheck; 
RETURN WITH s; 
END; 

SwapOutError: AllocDefs .SwappingProcedure « 
BEGIN 

SIGNAL SwapOutDuringMakeCheck; 
RETURN[TRUE]; 
END; 

-- File Segment Transfer Routines 

LockCodeSegment: PROCEDURE [p: ProcDesc] » 
BEGIN 

frame: ControlDef s .GIobalFrameHandle = ControlDefs.GFT[p.gfi]. frame; 
FrameDef s .MakeCodeResident[f rame]; 
FrameDef s .SwapInCode[f rame] ; 
SegmentDef s .Unlock[f rame. codes egment]; 
END; 

UnlockCodeSegment: PROCEDURE [p: ProcDesc] » 
BEGIN 

SegmentDefs.Unlock[ControlDefs.GFT[p.gf i].frame.codesegment]; 
END; 

DAofPage: PROCEDURE [file: FileHandle, page: PageNumber] RETURNS [next: vDA] » 
BEGIN 
cfa: CFA; 

buf: POINTER » SystemDef s . AnocatePages[l]; 
cfa.fp <- file.fp; 

cfa. fa ^ AnoFileDefs.FA[fi1e.fp.leaderDA,0.0]; 
next *- SegmentDef s .JumpToPage[0cf a, page-1, buf ], next; 
SystemDef s.FreePages[buf]; 
RETURN 
END; 

FilllnCAs: PROCEDURE [ 

Image: POINTER TO ImageHeader, mapindex: CARDINAL, ca: POINTER] = 

BEGIN 

i: CARDINAL: 

map: POINTER TO ARRAY [0..0) OF normal Mapltem = LOOPHOLE[@Image.map] ; 

addr: POINTER; 

FOR i IN [0. .mapindex) DO 

addr ♦- SegmentDef s .AddressFromPage[map[i]. page]; 
THROUGH [0. .map[i]. count) DO 
cat <r addr; 
ca *- ca + 1; 

addr ♦- addr + Al toDefs .PageSize; 
ENDLOOP; 
ENDLOOP; 
END; 

EnumerateNeededModules: PROCEDURE [proc: PROCEDURE [ProcDesc]] « 
BEGIN 

proc[L00PH0LF[EnumerateNeededModu1es]]; 
proc[LOOPHOLE[BFSDefs.ActOnPages]]; 
proc[LOOPHOLE[SegmentDefs.MapFileSegment]]; 
proc[L00PH0LE[SegmentDefs.C1oseFi1e]]; 
proc[LOOPHOLE[DiskKDDefs.CloseDiskKD]]; 
proc[L00PH0LE[ImageDefs.UserC1eanupProc]]; 
proc[LOOPHOLr-[DirectoryDef s . E numer at eDi rectory]]; 
proc[LOOPHOLE[StreamOefs.ReadBlock]]; 
proc[LOOPHOLE[StreamDefs,CreateWordStream]]; 
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proc[L00PH0LE[StringDefs.Equiva1entString]]; 

proc[LOOPHOLE[LoadStateDefs.InputLoadState]]; 

END; 

InstallCheck: PROCEDURE [name: STRING] » 
BEGIN OPEN DiskDeFs. AUoFileDefs; 
wdc: CARDINAL; 
diskrequest: DiskRequest; 
savealloctrap, saveswaptrap: ControlLink; 
auxtrapFrame: FrameHandle; 
saveAl location Vector: Al locationVector; 
saveXferTrap, saveXferTrapStatus: UNSPECIFIED; 
savePuntData: POINTER; 
datapages: PageCount ^ 0; 
SwapOutErrorStrategy: AllocDef s .SwapStrategy ♦- 

AllocDefs .SwapStrategy[l ink: ,proc:SwapOutError]; 
mapindex: CARDINAL *- 0; 
maxFileSegPages: CARDINAL ^ 0; 
endofdatamapindex: CARDINAL; 
HeaderSeg: DataSegmentHandle; 
Image: POINTER TO ImageHeader; 
HeaderDA: vDA; 
checkFile: FileHandle; 
saveDIW: WORD; 

savePV: ARRAY [0..15] OF UNSPECIFIED; 
saveSDC: WORD; 

saveReadyList: ProcessDefs. Queue; 
saveCurrentPSB: ProcessDefs.ProcessHandle; 
saveCurrentState: Control Defs .SVPointer; 
time: AUoFileDefs . TIME *- MiscDef s .DAYTIME[] ; 

initstateseg: Fi leSegmentHandle <- LoadStateDef s .Getini tia1LoadState[]; 
stateseg: FileSegmentHandle ♦- LoadStateDef s.GetLoadState[]; 
net: CARDINAL ^ MiscDef s .GetNetworkNumber[3 ; 
segs: DESCRIPTOR FOR ARRAY OF FileSegmentHandle; 
maxnumbersegments: CARDINAL ^ 0; 
nextpage: PageNumber; 
level : CARDINAL ^ 0; 
restart: BOOLEAN; 

SaveProcesses: PROCEDURE « 

BEGIN OPEN ProcessDefs; 

saveDIW <- DlWt; 

savePV ^ CVt; 

DlWt ^ 2; 

WakeupsWaitingt 4- O; 

saveSDC ^ SDCt; 

saveReadyList <- ReadyListt; 

saveCurrentPSB <- CurrentPSBt; 

saveCurrentState ♦- CurrentStatet ; 

END; 
RestoreProcesses: PROCEDURE « 

BEGIN OPEN ProcessDefs; 

ActiveWordt <- 777778; 

DlWt *- saveDIW; 

CVt ♦- savePV; 

SDCt ♦- saveSDC; 

ReadyListt <- saveReadyList; 

CurrentPSBt ^ saveCurrentPSB; 

CurrentStatet <- saveCurrentState; 

END; ' 

EnterNormalMapItem: PROCEDURE [vmpage: PageNumber, pages: PageCount] « 

BEGIN 

map: POINTER TO normal Mapltem = LOOPHOLE[0Image.map] ; 

IF pages > 127 THEN SIGNAL SwapErrorDur ingMakeCheck; 

IF mapindex >= PageSize*HeaderPages-SIZE[ImagePref ix]-SIZE[normal Mapltem] THEN 
SIGNAL NoRoomlnCheckMap; 

(map+mapindex) t <- Mapltem[ vmpage, pages, normal[]]; 

mapindex <- mapindex + SIZE[normal Mapltem]; 

END; 
CountDataSegments: PROCEDURE [s: DataSegmentHandle] RETURNS [BOOLEAN] « 

BEGIN 

datapages <- datapages + s. pages; 

RETURN[FALSE]; 

END; 
MapDataSegments: PROCEDURE [s: DataSegmentHandle] RETURNS [BOOLEAN] - 

BEGIN 
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IF s # HeaderSeg THEN 
BEGIN 

EnterNorma1MapItem[s.VMpage, s. pages]; 
nextpage ^ nextpage + s. pages; 
END; 
RETURN[FALSE]; 
END; 
CountMaxSegmentsPerFile: PROCEDURE [f: FileHandle] RETURNS [BOOLEAN] - 
BEGIN 

maxnumbersegments ♦- MAX[inaxnumbersegments, f . swapcount] ; 
RETURN[FALSE]; 
END; 
EnterSwappedlnPerFile: PROCEDURE [f: FileHandle] RETURNS [BOOLEAN] - 
BEGIN 

nsegs: CARDINAL <- 0; 
next: PageNumber ♦- DefaultBase; 
i: CARDINAL; 

OrganizeSegments: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN] » 
BEGIN 

i, j: CARDINAL; 

IF -s.swappedin OR s.file # f THEN RETURN[FALSE]; 
FOR i IN [0.. nsegs) DO 

IF segs[i].base > s.base THEN GOTO insert; 
REPEAT 
insert «> 
BEGIN 

FOR j DECREASING IN [i.. nsegs) DO segs[j+l] <- segs[j]; ENDLOOP; 
segs[i] *- s; 
END; 
FINISHED => segs[nsegs] <- s; 
ENDLOOP; 
RETURN[{nsegs <- nsegs+1) = f .swapcount]; 
END; 
IF f = checkFile OR f. swapcount = THEN RETURN[FALSE] ; 
[] ♦- EnumerateFi1eSegments[0rganizeSegments]; 
FOR i IN [0.. nsegs) DO 

IF segs[i].base If next THEN EnterChangeMapItem[segs[i]] 
ELSE EnterNormalMapItem[segs[i] .VMpage, segs[i] .pages] ; 
next ^ segs[i].base + segs[i] .pages; 
ENDLOOP; 
RETURN[FALSE]; 
END; 
EnterChangeMapItem: PROCEDURE [s: FileSegmentHandle] » 
BEGIN 

map: POINTER TO change Mapltem « LOOPHOLE[@Image.map]; 
da: DiskDefs.DA <- DiskDef s . RealDA[GetFileSegmentDA[s]] ; 
IF s. pages > 127 THEN SIGNAL SwapErrorDuringMakeCheck; 
IF mapindex >= PageSize*HeaderPages-"SIZE[ImagePref ix]-SIZE[change Mapltem] THEN 

SIGNAL NoRoomlnCheckMap; 
(map+mapindex)t <- Mapltem[s .VMpage, s. pages, change[da, s.base]]; 
mapindex *- mapindex + SIZE[change Mapltem]; 
END; 

CheckFile <- NewFile[name, Read+Write+Append, Def aul tVersion]; 

ProcessDef s ,DisableInterrupts[]; 

wdc ^ REGISTER[WDCreg]; 

level +- CoreSwapDefs.GetLevel[]; 

CoreSwapDef s .SetLevel[-l]; 

SaveProcesses[]; 

ImageDefs.UserCleanupProc[Checkpoint]; 

Swapln[initstateseg]; 

[] <- LoadStateDef s . InputLoadState[]; -- bring it in for first time 

[] <- SystemDefs.PruneHeap[]; 

SetupAuxStorage[]; 

EnumerateNeededModules[LockCodeSegment]; 
HeaderDA <- DAofPage[checkFi le. 1]; 

-- set up private frame allocation trap 

ControlDef s. Free[ControlDef s .Anoc[0]] ; -- flush large frames 

saveal loctrap *- SD[SDOefs, sAllocTrap]; 

SD[SDDefs.sAnocTrap] <- auxtrapFrame *- auxtrap[]; 

saveAl locationVector +- AVt; 

AVt 4- LOOPHOLE[DataSegmentAddress[AuxSeg], POINTER TO AnocationVector]t; 
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[] <- EnumerateDataSegments[CountDataSegnients]; 

SetEndOfFile[checkFne, datapages+stateseg.pages*2+FirstImageDataPage-l. 

AltoDeFs.BytesPerPage]; 
[] <r DiskKDDefs.CloseDiskKD[]; 

HeaderSeg <- NewDataSegmGnt[Def aul tBase, 1]; 
Image <- DataSegmentAddress[HeaderSeg]; 
MiscDefs.Zero[ Image, Al toDefs .PageSize * Header Pages]; 
Image. prefix, versionident ♦- ImageDef s .VersionID; 
-Image. prefix. options *• 0; 

-Image.prefix. state. stk[0] ^ Image. prefix. state. stk[l] ^ 0; 
Image.prefix. state. stkptr ^ 2; 
Image. prefix. state. dest <- RE6ISTER[Lreg]; 
Image.prefix. type <- checkfile; 
Image.prefix. leaderDA *- checkFile.fp. leaderDA; 
Image. prefix. version «- BcdDef s .VersionStamp[ 

time: TimeDefs.PackedTime[lowbits : time. low, highbits: time. high], 

zapped: FALSE, 

net: net, 

host: OsS tat icDefs.OsStatics. Serial Number]; 
Image. prefix. creator <r ImageDef s. ImageVersion[] ; -- version stamp of currently running image 

nextpage ♦- FirstlmageDataPage; 

[] ♦- EnumerateDataSegments[MapDataSegments]; 

IF nextpage ff FirstlmageDataPage+datapages THEN ERROR; 

endofdatamapindex ♦- mapindex; 

-- Move LoadStates 
InlineDefs.COPY[ 

from: Fil eSegment Address [stateseg] , 

to: FileSegmentAddress[initstateseg] , 

nwords : initstateseg . pages*PageSize] ; 
MapFileSegment[stateseg, checkFile, datapages+FirstlmageDataPage]; 
EnterNormalMapItem[ stateseg .VMpage, stateseg. pages]; 
MapFileSegment[ 

initstateseg, checkFile, da tapages+FirstlmageDataPage+stateseg. pages]; 
En terNormalMapItem[ initstateseg. VMpage, s t ate s eg. pages ] ; 
Image.prefix. loadStateBase ^ stateseg. base; 
Image, prefix. initialLoadStateBase <- initstateseg. base; 
Image.prefix. loadStatePages <- initstateseg. pages; 

-- now disable swapping 

savePuntData ^ CoreSwapDefs . Puntlnfot; 

saveswaptrap <- SD[SDDef s . sSwapTrap] ; 

SD[SDDef s . sSwapTrap] <- SwapTrapError; 

AnocDefs.AddSwapStrategy[6Swap0utErrorStrategy]; 

[] <- EnumerateFiles[CountMaxSegmentsPerFile]; 

segs <- DESCRIPTOR[auxanoc[maxnumbersegments] , maxnumbersegments]; 

[] <- EnumerateFiles[EnterSwappedInPerFile]; 

SegmentDefs.CloseFile[checkFile 1 SegmentDef s . FileError => RESUME]; 
CheckFile. write <- checkFile. append *- FALSE; 

diskrequest ^ DiskRequest[ 
ca: auxanoc[datapages+3], 
da: auxal loc[datapages+3], 
fixedCA: FALSE, 
fp: auxanoc[SIZE[FP]], 
firstPage: FirstlmageDataPage-l, 
lastPage: FirstImageDataPage+datapages-1, 
action: WriteD, 
lastAction: WriteD, 
signalCheckError: FALSE, 
option: update[BFSDef s .GetNextDA]]; 

diskrequest. fpt *- checkFile.fp; 

(diskrequest .ca+l)t ♦- Image; 

Fill InCAs[Image, endofdatamapindex, diskrequest. ca+2]; 

MiscDef s .SetBlock[diskrequest . da.f il 1 inDA,datapages+3]; 

(diskrequest. da+l)t ♦- HeaderDA; 

saveXferTrap ^ SD[SDOef s. sXferTrap]; 
SD[SDDefs.sXferTrap] <- REGISTER[Lreg]; 
saveXferTrapStatus <- REGISTER[XTSreg]; 

restart <- BFSDefs.ActOnPages[LOOPHOLE[0diskrequest]].page » 0; 
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REGISTER[WDCreg] <- wdc; 
AVt ♦- saveAllocationVector; 
SD[SDDefs.sAnocTrap] <- savealloctrap; 
SD[SDDefs.sXferTrap] ♦- saveXferTrap; 
REGISTER[XTSreg] ^ saveXferTrapStatus ; 
Free[aux trap Frame] ; 
De1eteDataSegment[HeaderSeg]; 

-- turn swapping back on 

AnocDefs.RemoveSwapStrategy[@SwapOutErrorStrategy]; 
SD[SDDef s .sSwapTrap] ^ saveswaptrap; 

RestoreProcesses[]; 

CoreSwapDef s .Puntlnfot <- savePuntData; 

IF -restart THEN CoreSwapDef s .SetLevel [level] ; 

ProcessDefs.Enab1eInterrupts[]; 

imineDefs.COPY[ 

to: Fi1eSegmentAcldress[stateseg] , 

from: FileSegmentAddress[initstateseg] , 

nwords: initstateseg.pages*PageSize]; 
LoadStateDef s .Re1easeLoadState[] ; 
Un1ock[initstateseg]; 
SwapOut[initstateseg]; 
DeleteDataSegment[AuxSeg]; 

EnumerateNeededModu1es[UnlockCodeSegment]; 

ImageDef s .UserC1eanupProc[IF restart THEN Restart ELSE Continue]; 

RETURN 

END; 

-- auxiliary storage for frames and non-saved items 
AuxSeg: DataSegmentHandle; 
freepointer: POINTER; 
wordsleft: CARDINAL; 

SetupAuxStorage: PROCEDURE » 
BEGIN 

av : POINTER; 
i: CARDINAL; 

AuxSeg <- NewDataSegment[Def aul tBase,5]; 
av <- freepointer <- DataSegmentAddress[AuxSeg] ; 
wordsleft ♦■ 10*PageSize; 
[] <- auxanoc[AllocationVectorSize]; 
freepointer ^ f reepointer+3; wordsleft <- wordsleft-3; 
FOR i IN [0. .MaxAllocSlot) 00 

(av+i)t <- (i + l)*4+2; 

ENDLOOP; 
(av+6)t ♦- (av+MaxAllocSlot)t <- (av+MaxAl locSlot+l)t <- 1; 
END; 

auxalloc: PROCEDURE [n: CARDINAL] RETURNS [p: POINTER] = 
BEGIN -- allocate in multiples of 4 words 
p ^ freepointer; 

n <- InlineDefs.BITAND[n+3,177774B]; 
freepointer ♦- f reepointer+n; 
IF wordsleft < n THEN ImageDef s .PuntMesa[]; 
wordsleft <- wordsleft-n; 
RETURN 
END; 

auxtrap: PROCEDURE RETURNS [myframe: FrameHandle] » 
BEGIN 

state: StateVector; 
newframe: FrameHandle; 
eventry: POINTER TO EntryVectorltem; 
fsize, findex: CARDINAL; 
newG: GlobalFrameHandle; 
dest, tempdest: ControlLink; 
alloc: BOOLEAN; 
gfi: GFTIndex; 
ep: CARDINAL; 

myframe ^ LOOPHOLE[REGISTER[Lreg]]; 

state. dest ^ myframe. return! ink; state. source ^ 0; 

state. instbyte<-0; 
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state, stk[0]<-myframe; 
state. stkptr^l; 

ProcessDefs.Disab1eInterrupts[]; 

DO 

ProcessDefs.EnableInterrupts[]; 
TRANSFER WITH state; 

ProcessDefs.DisableInterrupts[]; 
state <- STATE; 

dest <- LOOPHOLE[REGISTER[ATPreg]]; 
myframe. return! ink ^ state. source; 
tempdest <- dest; 
DO 

SELECT tempdest. tag FROM 
frame => 
BEGIN 

alloc <- TRUE; 

findex <- LOOPHOLE[tempdest. CARDINAL]/4; 
EXIT 
END; 
procedure «> 

BEGIN OPEN proc: LOOPHOLE[tempdest , ControlDef s . ProcDesc]; 
gfi *- proc.gfi; ep <- proc.ep; 
[frame: newG, epbase: findex] <- GFT[gfi]; 
eventry ♦- QnewG.code.pref ix.entry[Findex+ep] ; 
findex «- eventry. framesize; 
alloc ^ FALSE; 
EXIT 
END; 
indirect «> tempdest <- tempdest. 1 inkt; 
ENDCASE => ImageDefs.PuntMesa[]; 
ENDLOOP; 

IF findex >= MaxAllocSlot THEN ImageDef s .PuntMesa[] 
ELSE 

BEGIN 

fsize <- Frame\/ec[f index]+l; -- includes overhead word 

newframe ^ LOOPHOLE[freepointer+l]; 

freepointert ^ findex; 

freepointer <- freepointer + fsize; 

IF wordsleft < fsize THEN ImageDef s . PuntMesa[3 

ELSE wordsleft ♦■ wordsleft - fsize; 

END; 

IF alloc THEN 
BEGIN 

state. dest <- myframe. return! ink; 
state. stk[state.stkptr] ^ newframe; 
state. stkptr <- state. stkptr+1; 
END 
ELSE 
BEGIN 
IF dest. tag ^ indirect THEN 

BEGIN 

state. dest ^ newframe; 

newframe. access! ink ♦- newG; 

newframe. pc <- eventry. initialpc; 

newframe. return! ink ^ myframe . return! ink; 

END 
ELSE 

BEGIN 

IF findex « MaxAllocSlot THEN ImageDef s . PuntMesa[] ; 

state. dest ♦- dest; 

newframe. access! ink <- LOOPHOLE[A\/[f index] .frame]; 

AV[f index] . Frame +- newframe; 

END; 
state. source ^ myframe. return! ink; 
END; 

ENDLOOP; 
END; 

-- The driver 
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MakeCheckPoint: PUBLIC PROCEDURE [name: STRING] « 
BEGIN 

s: StateVector; 
s ^ STATE; 

s.stk[0] *- REGISTER[Greg]; 
s.stkptr ^ 1; 

s.dest ♦- FrameDefs.SwapOutCode; 
s. source <- GetReturnLink[] ; 
Instal lCheck[name] ; 
RETURN WITH s; 
END; 

END. 



